﻿Public Class ClsUcnGridUnboundItemVersionsAllChanges
    Inherits ClsUcnGridUnboundItemBasic
    'represents TreeList row in UcnGridUnbound usercontrol - changes between two versions in comparsion mode

#Region "Attributes"
#Region "Private attributes"
    'atributtes from DsChanges dataset
    Private MsLocation1 As String
    Private MsLocation2 As String
    Private MsLocation3 As String
    Private MbyOperation As Byte
    Private MsOldValue As String
    Private MsNewValue As String
    Private MsDescription As String
    Private MiUnitID As Integer
    Private MiTableID As Integer
    Private MiColumnID As Integer
    Private MiNoteID As Integer
    Private MsHumanItemType As String
    Private MsHumanOperationType As String
#End Region
#End Region
#Region "Constructors"
    Public Sub New(ByVal IiRowID As Integer, ByVal IiParentRowID As Integer, ByVal IbEnabled As Boolean, ByVal IbSelected As Boolean, ByVal IsLocation1 As String, ByVal IsLocation2 As String, ByVal IsLocation3 As String, ByVal IbyOperation As Byte, ByVal IsOldValue As String, ByVal IsNewValue As String, ByVal IsDescription As String, ByVal IiUnitID As Integer, ByVal IiTableID As Integer, ByVal IiColumnID As Integer, ByVal IiNoteID As Integer, ByVal IsHumanItemType As String, ByVal IsHumanOperationType As String)
        MyBase.New(IiRowID, IiParentRowID, IbEnabled, IbSelected)

        MsLocation1 = IsLocation1
        MsLocation2 = IsLocation2
        MsLocation3 = IsLocation3
        MbyOperation = IbyOperation
        MsOldValue = IsOldValue
        MsNewValue = IsNewValue
        MsDescription = IsDescription
        MiUnitID = IiUnitID
        MiTableID = IiTableID
        MiColumnID = IiColumnID
        MiNoteID = IiNoteID
        MsHumanItemType = IsHumanItemType
        MsHumanOperationType = IsHumanOperationType
    End Sub
#End Region

#Region "Properties"
#Region "Public properties"
    Public Property Location1() As String
        Get
            Return MsLocation1
        End Get
        Set(ByVal IsValue As String)
            MsLocation1 = IsValue
        End Set
    End Property
    Public Property Location2() As String
        Get
            Return MsLocation2
        End Get
        Set(ByVal IsValue As String)
            MsLocation2 = IsValue
        End Set
    End Property
    Public Property Location3() As String
        Get
            Return MsLocation3
        End Get
        Set(ByVal IsValue As String)
            MsLocation3 = IsValue
        End Set
    End Property
    Public Property Operation() As Byte
        Get
            Return MbyOperation
        End Get
        Set(ByVal IbyValue As Byte)
            MbyOperation = IbyValue
        End Set
    End Property
    Public Property OldValue() As String
        Get
            Return MsOldValue
        End Get
        Set(ByVal IsValue As String)
            MsOldValue = IsValue
        End Set
    End Property
    Public Property NewValue() As String
        Get
            Return MsNewValue
        End Get
        Set(ByVal IsValue As String)
            MsNewValue = IsValue
        End Set
    End Property
    Public Property Description() As String
        Get
            Return MsDescription
        End Get
        Set(ByVal IsValue As String)
            MsDescription = IsValue
        End Set
    End Property
    Public Property UnitID() As Integer
        Get
            Return MiUnitID
        End Get
        Set(ByVal IiValue As Integer)
            MiUnitID = IiValue
        End Set
    End Property
    Public Property TableID() As Integer
        Get
            Return MiTableID
        End Get
        Set(ByVal IiValue As Integer)
            MiTableID = IiValue
        End Set
    End Property
    Public Property ColumnID() As Integer
        Get
            Return MiColumnID
        End Get
        Set(ByVal IiValue As Integer)
            MiColumnID = IiValue
        End Set
    End Property
    Public Property NoteID() As Integer
        Get
            Return MiNoteID
        End Get
        Set(ByVal IiValue As Integer)
            MiNoteID = IiValue
        End Set
    End Property
    Public Property HumanItemType() As String
        Get
            Return MsHumanItemType
        End Get
        Set(ByVal IsValue As String)
            MsHumanItemType = IsValue
        End Set
    End Property
    Public Property HumanOperationType() As String
        Get
            Return MsHumanOperationType
        End Get
        Set(ByVal IsValue As String)
            MsHumanOperationType = IsValue
        End Set
    End Property
#End Region
#End Region

End Class
